ClearLookupList procedure

The ClearLookupListprocedure removes all items from the lookup list.

Public Sub ClearLookupList(lulist As AMLookupList)
Dim values, value As Variant
 
values = lulist.values
For Each value In values
lulist.RemoveValue value
Next
End Sub